object CardInfoForm: TCardInfoForm
  Left = 251
  Top = 111
  Width = 930
  Height = 500
  Caption = 'IC'#21345#26597#35810
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poOwnerFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object grp1: TGroupBox
    Left = 0
    Top = 0
    Width = 922
    Height = 50
    Align = alTop
    TabOrder = 0
    object lbl3: TLabel
      Left = 16
      Top = 23
      Width = 42
      Height = 13
      Caption = #36134#21495#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object medtAccount: TMaskEdit
      Left = 64
      Top = 20
      Width = 221
      Height = 21
      EditMask = '!9999999999999999999;1; '
      ImeName = 'Chinese (Simplified) - US Keyboard'
      MaxLength = 19
      TabOrder = 0
      Text = '                   '
    end
    object btnOK: TBitBtn
      Left = 310
      Top = 19
      Width = 75
      Height = 22
      Caption = #26597#35810'(&Q)'
      TabOrder = 1
      OnClick = btnOKClick
    end
    object btnExport: TBitBtn
      Left = 400
      Top = 19
      Width = 75
      Height = 22
      Caption = #25171#21360'(&P)'
      TabOrder = 2
      OnClick = btnExportClick
    end
  end
  object cxGrid1: TcxGrid
    Left = 0
    Top = 50
    Width = 922
    Height = 423
    Align = alClient
    TabOrder = 1
    object tvCard: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = srcCard
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skCount
          Column = tvCardCARDNO
        end>
      DataController.Summary.SummaryGroups = <
        item
          Links = <
            item
              Column = tvCardCARDType
            end>
          SummaryItems = <
            item
              Kind = skCount
              Position = spFooter
              Column = tvCardCARDNO
            end>
        end
        item
          Links = <
            item
              Column = tvCardFREEROAD
            end>
          SummaryItems = <
            item
              Kind = skCount
              Position = spFooter
              Column = tvCardCARDNO
            end>
        end>
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.GroupFooters = gfAlwaysVisible
      object tvCardCARDNO: TcxGridDBColumn
        Caption = #21345#21495
        DataBinding.FieldName = 'CARDNO'
        Options.Editing = False
      end
      object tvCardCARDType: TcxGridDBColumn
        Caption = #21345#22411
        DataBinding.FieldName = 'CARDType'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'CardType'
        Properties.ListColumns = <
          item
            FieldName = 'TypeName'
          end>
        Properties.ListSource = srcCardType
        GroupIndex = 0
        Options.Editing = False
        Options.Grouping = False
        Width = 51
      end
      object tvCardAccountNo: TcxGridDBColumn
        Caption = #36134#25143
        DataBinding.FieldName = 'AccountNo'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'AccountNo'
        Properties.ListColumns = <
          item
            FieldName = 'AccountName'
          end>
        Properties.ListSource = srcAccount
        Options.Editing = False
        Width = 164
      end
      object tvCardFREEROAD: TcxGridDBColumn
        Caption = #26377#25928#36335#27573
        DataBinding.FieldName = 'FREEROAD'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'ROADID'
        Properties.ListColumns = <
          item
            FieldName = 'ROADFULLNAME'
          end>
        Properties.ListSource = srcFreeRoad
        GroupIndex = 1
        Options.Editing = False
        Options.Grouping = False
        Width = 126
      end
      object tvCardVehPlate: TcxGridDBColumn
        Caption = #36710#29260
        DataBinding.FieldName = 'VehPlate'
        Options.Editing = False
      end
      object tvCardVehClass: TcxGridDBColumn
        Caption = #36710#22411
        DataBinding.FieldName = 'VehClass'
        Options.Editing = False
        Width = 39
      end
      object tvCardBEGDT: TcxGridDBColumn
        Caption = #36215#22987#26085#26399
        DataBinding.FieldName = 'BEGDT'
        Options.Editing = False
      end
      object tvCardENDDT: TcxGridDBColumn
        Caption = #25130#27490#26085#26399
        DataBinding.FieldName = 'ENDDT'
        Width = 149
      end
      object tvCardMARK: TcxGridDBColumn
        Caption = #29366#24577
        DataBinding.FieldName = 'MARK'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'Mark'
        Properties.ListColumns = <
          item
            FieldName = 'StatusName'
          end>
        Properties.ListSource = srcMark
        Width = 46
      end
    end
    object glCard: TcxGridLevel
      GridView = tvCard
    end
  end
  object msqryCard: TMSQuery
    Connection = MainForm.connSQL
    SQL.Strings = (
      'select * from TS_SpeCard')
    Left = 376
    Top = 136
  end
  object dxComponentPrinter: TdxComponentPrinter
    CurrentLink = dxComponentPrinterLink1
    Version = 0
    Left = 576
    Top = 72
    object dxComponentPrinterLink1: TdxGridReportLink
      Active = True
      Component = cxGrid1
      PrinterPage.DMPaper = 9
      PrinterPage.Footer = 6350
      PrinterPage.Header = 6350
      PrinterPage.Margins.Bottom = 12700
      PrinterPage.Margins.Left = 12700
      PrinterPage.Margins.Right = 12700
      PrinterPage.Margins.Top = 12700
      PrinterPage.Orientation = poLandscape
      PrinterPage.PageSize.X = 210000
      PrinterPage.PageSize.Y = 297000
      PrinterPage._dxMeasurementUnits_ = 0
      PrinterPage._dxLastMU_ = 2
      ReportDocument.CreationDate = 40547.612381307870000000
      ReportTitle.Font.Charset = ANSI_CHARSET
      ReportTitle.Font.Color = clBlack
      ReportTitle.Font.Height = -56
      ReportTitle.Font.Name = #23435#20307
      ReportTitle.Font.Style = []
      ReportTitle.Text = #39044#20184#21345#20449#24687#26126#32454
      StyleRepository = cxStyleRepository1
      Styles.BandHeader = cxStyle2
      Styles.Caption = cxStyle1
      Styles.FilterBar = cxStyle3
      Styles.Footer = cxStyle4
      Styles.Header = cxStyle5
      BuiltInReportLink = True
    end
  end
  object srcCard: TDataSource
    DataSet = msqryCard
    Left = 288
    Top = 144
  end
  object tblFreeRoad: TMSTable
    TableName = 'TS_FreeROAD'
    Connection = MainForm.connSQL
    Left = 296
    Top = 320
  end
  object srcFreeRoad: TDataSource
    DataSet = tblFreeRoad
    Left = 288
    Top = 144
  end
  object tblAccount: TMSTable
    TableName = 'TS_Account'
    Connection = MainForm.connSQL
    Left = 192
    Top = 104
  end
  object srcAccount: TDataSource
    DataSet = tblAccount
    Left = 128
    Top = 104
  end
  object tblMark: TMSTable
    TableName = 'TS_CardMark'
    Connection = MainForm.connSQL
    Left = 600
    Top = 328
  end
  object srcMark: TDataSource
    DataSet = tblMark
    Left = 536
    Top = 328
  end
  object tblcardType: TMSTable
    TableName = 'TS_CardType'
    Connection = MainForm.connSQL
    Left = 448
    Top = 336
  end
  object srcCardType: TDataSource
    DataSet = tblcardType
    Left = 376
    Top = 328
  end
  object cxStyleRepository1: TcxStyleRepository
    PixelsPerInch = 96
    object cxStyle1: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle2: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle3: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindow
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = []
      TextColor = clWindow
    end
    object cxStyle4: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindow
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = []
      TextColor = clWindow
    end
    object cxStyle5: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindow
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = []
      TextColor = clWindow
    end
  end
  object msspGen: TMSStoredProc
    StoredProcName = 'usp_GenCardRange'
    Connection = MainForm.connSQL
    SQL.Strings = (
      '{:RETURN_VALUE = CALL usp_GenCardRange }')
    Left = 432
    Top = 104
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
      end>
    CommandStoredProcName = 'usp_GenCardRange'
  end
  object MSQuery1: TMSQuery
    Left = 120
    Top = 16
  end
end
